home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / tafltggr.lha / TAScrollerDoor.lha / Install_TAScrollerDoor < prev    next >
Text File  |  1995-12-03  |  6KB  |  291 lines
  1. ;$VER:Script for TAScrollerDoor
  2. ;;;; Install_TAScrollerDoor - TAScrollerDoor disk installation script for Installer
  3. ;;;;
  4. ;;;; Copyright © 1995 TAScrollerDoor,
  5. ;;;;                  OMASoft, Germany
  6. ;;;;                  All rights reserved.
  7. ;;;;
  8. ;;;; $Id: TAScrollerDoor, v 1.2 1995/12/03 20:57:34 jAl Exp $
  9. ;;;;
  10. ;;;; This script has been tested with Installer 1.24:
  11. ;;;;
  12. ;;;;     Installer and Installer project icon
  13. ;;;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  14. ;;;;     Reproduced and distributed under license from Commodore.
  15. ;;;;
  16. ;;;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  17. ;;;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  18. ;;;;     OR RESPONSIBILITY IS ASSUMED.
  19. ;;;;
  20. ;;;; Use following Icon tooltypes / Command line options:
  21. ;;;; APPNAME=TAScrollerDoor
  22. ;;;; MINUSER=AVERAGE
  23. ;;;;
  24. (welcome "    Welcome to the " @app-name " 1.1 shareware version installation.\n")
  25. ;;;;
  26. ;;;; What we are?
  27. ;;;;
  28. (set app-name (cat @app-name " 1.1 shareware version"))
  29.  
  30. (complete 0) (transcript "On making " app-name ".")
  31. (set @default-dest "BBS:")
  32.  
  33. ; Texts
  34.  
  35. (set #Intro-Txt
  36.  (cat "\n\nWelcome to \n"
  37.   "TAScrollerDoor\n"
  38.   "Hard Disk Install Script\n\n\n\n"
  39.  )
  40. )
  41. (set #Path-Txt
  42.  (cat "Select the target directory. "
  43.  )
  44. )
  45. (set #Path-Help
  46.  (cat "\nThis section lets you choose the "
  47.   "target directory to install TAScrollerDoor. \n\n"
  48.   "Default is BBS:\n\n\n"
  49.   @askdir-help
  50.  )
  51. )
  52. (set #Copy-Help-Txt
  53.  (cat "Copy help files\n"
  54.  )
  55. )
  56. (set #Copy-Working-Txt
  57.  (cat "Copying data from floppy"
  58.  )
  59. )
  60.  
  61. ; Main
  62. (message #Intro-Txt)
  63. (set target
  64.  (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  65.  )
  66. )
  67. (set @default-dest target)
  68. (set
  69.  ;; Configuration
  70.  conf-dir (tackon target "configs")
  71.  ;; User binaries
  72.  bin-dir (tackon target "bin")
  73.  ;; documentation
  74.  doc-dir (tackon target "docs")
  75.  ;; rexx directory
  76.  rexx-dir (tackon target "rexx")
  77.  ;; Bulletin directory
  78.  bull-dir (tackon target "Bulletins")
  79.  ;; Text directory
  80.  Text-dir (tackon target "Text")
  81.  ;;
  82.  System-dir (tackon target "system")
  83.  ;;
  84.  Example-dir (tackon target "Examples")
  85.  ;;
  86.  Rx-Example-dir (tackon Example-dir "Rexx")
  87.  ;;
  88.  Sys-Example-dir (tackon Example-dir "System")
  89.  ;;
  90.  Cfg-Example-dir (tackon Example-dir "Configs")
  91.  ;;
  92.  dir-pat (cat "(" "configs" "|" "bin" "|" "rexx" "|"
  93.           "bulletins" "|" "Text" "|" "System" ")")
  94. )
  95. ;
  96. ;
  97. (copyfiles
  98.   (prompt "Copying to " #target)
  99.   (help @copy-files-help)
  100.   (source "bin/TAScrollerDoor")
  101.   (dest bin-dir )
  102. )
  103. (copyfiles
  104.   (prompt "Copying to " #target)
  105.   (help @copy-files-help)
  106.   (source "rexx/TAScrollerDoor.trans")
  107.   (dest rexx-dir )
  108. )
  109. (complete 5)
  110. (complete 25)
  111. ;
  112. ;
  113. (if (askbool
  114.       (prompt
  115.        "Install Magic-Rexx Files"
  116.       )
  117.       (help
  118.         "Magic Rexx Files a la Download.trans\n"
  119.       )
  120.      )
  121.      (
  122.       (message "Please take a look to TAFileTagger")
  123.      )
  124. )
  125. (complete 30)
  126.  
  127. ; Copy langfiles
  128. (set langbitmap 0)
  129. (while (= langbitmap 0)
  130.   (set langbitmap
  131.    (askoptions
  132.      (prompt "Which Language do you want to copy?")
  133.      (help   "Just select the files you want to copy.\n\n"
  134.              "Scroller.lang                Default language (German)\n"
  135.              "Scroller.DEUTSCH.lang        German language\n"
  136.              "Scroller.ENGLISH.lang        English language\n"
  137.      )
  138.      (choices "Scroller.lang"
  139.               "Scroller.DEUTSCH.lang"
  140.               "Scroller.ENGLISH.lang"
  141.      )
  142.      (default 1)
  143.    )
  144.   )
  145. )
  146.  
  147.  
  148. (if (BITAND langbitmap 1)
  149.    (copyfiles
  150.       (prompt "Copying to " #target)
  151.       (help @copy-files-help)
  152.          (source "Configs/Scroller.lang")
  153.          (dest Conf-dir )
  154.          (infos)
  155.    )
  156. )
  157. (if (BITAND langbitmap 2)
  158.    (copyfiles
  159.       (prompt "Copying to " #target)
  160.       (help @copy-files-help)
  161.          (source "Configs/Scroller.Deutsch.lang")
  162.          (dest Conf-dir )
  163.          (infos)
  164.    )
  165. )
  166. (if (BITAND langbitmap 4)
  167.    (copyfiles
  168.       (prompt "Copying to " #target)
  169.       (help @copy-files-help)
  170.          (source "Configs/Scroller.English.lang")
  171.          (dest Conf-dir )
  172.          (infos)
  173.    )
  174. )
  175. ; Copy Help-Files
  176. (message #Copy-Help-Txt)
  177. (copyfiles
  178.   (prompt "Copying to " #target)
  179.   (help @copy-files-help)
  180.   (source "Text/ScrollerListHelp.ANSI")
  181.   (dest Text-dir )
  182. )
  183. (copyfiles
  184.   (prompt "Copying to " #target)
  185.   (help @copy-files-help)
  186.   (source "Text/ScrollerArcHelp.ANSI")
  187.   (dest Text-dir )
  188. )
  189. (copyfiles
  190.   (prompt "Copying to " #target)
  191.   (help @copy-files-help)
  192.   (source "Text/ScrollerPrivateHelp.ANSI")
  193.   (dest Text-dir )
  194. )
  195. (copyfiles
  196.   (prompt "Copying to " #target)
  197.   (help @copy-files-help)
  198.   (source "Text/ScrollerSysopHelp.ANSI")
  199.   (dest Text-dir )
  200. )
  201. (copyfiles
  202.   (prompt "Copying to " #target)
  203.   (help @copy-files-help)
  204.   (source "Text/ScrollerFreqHelp.ANSI")
  205.   (dest Text-dir )
  206. )
  207. (complete 40)
  208.  
  209. (if (askbool
  210.       (prompt
  211.        "Install Magic-Text Files"
  212.       )
  213.       (help
  214.         ""
  215.       )
  216.      )
  217.      (
  218.       (message "Please take a look to TAFileTagger")
  219.      )
  220. )
  221.  
  222. (complete 60)
  223. ;;(message #Copy-Doc-Txt)
  224.  
  225. (if (not (exists (doc-dir )))
  226.     (makedir (doc-dir))
  227. )
  228. (message "Please take a look to TAFileTagger.doc")
  229. (copyfiles
  230.   (prompt "Copying to " #target)
  231.   (help @copy-files-help)
  232.   (source "Lies.Mich")
  233.   (dest doc-dir )
  234. )
  235. (copyfiles
  236.   (prompt "Copying to " #target)
  237.   (help @copy-files-help)
  238.   (source "Lies.Mich.info")
  239.   (dest doc-dir )
  240. )
  241. (copyfiles
  242.   (prompt "Copying to " #target)
  243.   (help @copy-files-help)
  244.   (source "Read.me")
  245.   (dest doc-dir )
  246. )
  247. (copyfiles
  248.   (prompt "Copying to " #target)
  249.   (help @copy-files-help)
  250.   (source "Read.me.info")
  251.   (dest doc-dir )
  252. )
  253. (copyfiles
  254.   (prompt "Copying to " #target)
  255.   (help @copy-files-help)
  256.   (source "RegForm_D.txt")
  257.   (dest doc-dir )
  258. )
  259. (copyfiles
  260.   (prompt "Copying to " #target)
  261.   (help @copy-files-help)
  262.   (source "RegForm_D.txt.info")
  263.   (dest doc-dir )
  264. )
  265. (copyfiles
  266.   (prompt "Copying to " #target)
  267.   (help @copy-files-help)
  268.   (source "RegForm_E.txt")
  269.   (dest doc-dir )
  270. )
  271. (copyfiles
  272.   (prompt "Copying to " #target)
  273.   (help @copy-files-help)
  274.   (source "RegForm_E.txt.info")
  275.   (dest doc-dir )
  276. )
  277.  
  278. (complete 90)
  279. (complete 100)
  280. (exit "You should read the manuals before you wants to use "
  281.       @app-name
  282.       "\nBefore running "@app-name " you must create a Configfile\n"
  283.       "using TaggerCfgWrite or TaggerConCfg!!!\n"
  284.       "\n\n"
  285.       "Please check this archive with Md5Sum and PGP!"
  286.       "\n"
  287.       "Tia Juergen A.Lamers\n"
  288.       )
  289.  
  290. ; EOF
  291.